TSC KLINGON CAPTURE FOR 6800 
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KLINGON CAPTURE FOR 6890 v2.6 


COPYRIGHT (C) 1976 BY 
TECHNICAL SYSTEMS CONSULTANTS 
BOX 2574 W.LAFAYETTE IND. 47906 


INSTRUCTIONS FOR PLAYING KLINGON CAPTURE 


YOUR MISSION AS COMMANDER OF A STARSHIP IS TO 
CAPTURE (NOT DESTROY) AN ALIEN KLINGON SPACESHIP. 
YOUR SCANNERS WILL FIND HIM IN A GALAXY,» BUT IT 
IS YOUR JOB TO CAPTURE HIM! TO CAPTURE THE 
KLINGON, YOU MUST DESTROY ALL 8 SECTORS AROUND 
HIM, MAKING IT IMPOSSIBLE FOR HIM TO MOVE .CTHE 
KLINGON CANNOT MOVE INTO A DESTROYED SECTOR). IF 
YOU DESTROY A SECTOR WHICH CONTAINS THE KLINGON, 
YOUR MISSION IS A FAILURE AND YOU LOSE THE GAME. 


TO START THE GAME, ENTER THE ADDRESS QOOO HEX INTO 
THE MIKBUG RAM LOCATIONS A048-A049. NEXT TYPE G 

TO GOTO USER PROGRAM. (SEE MIKBUG INSTRUCTIONS) 

AT THIS TIME YOU SHOULD GET SEVERAL MESSAGES BACK 
THE FIRST BEING: 'RATING(B/M)?2*.THIS GIVES YOU THE 
CHOICE- BEGINNERCB) OR MASTER(M). TYPE YOUR CHOICE. 
THE LAST ONE WILL BE: "BATTLE COMPUTER READY! X=" 
AT THIS TIME YOU HAVE 4 OPTIONS: 

1.TYPE THE X COORDINATE OF THE SECTOR YOU WISH TO 
FIRE YOUR PHASERS AT. 

2-TYPE AN *S*. THE BATTLE COMPUTER WILL THEN 
REPORT ON THE AMOUNT OF PHASER ENERGY LEFT (THE 
NUMBER OF SHOTS LEFT) 

3.TYPE AN *M*. AT THIS TIME A MAP OF THE GALAXY 
WILL BE PRINTED. AN *** REPRESENTS A REMAINING 
SECTOR AND AN °0O* REPRESENTS A DESTROYED ONE. 
SINCE THE KLINGONS POSITION IS NEVER KNOWN, IT 
DOES NOT SHOW UP ON THE MAP. 

4.TYPE AN *L*. THIS IS A CONVENIENCE FEATURE WHICH 
WILL ALLOW THE KLINGONS LAST KNOWN POSITION TO BE 
TO BE REPORTED IF YOU FORGET WHAT IT WAS FROM THE 
LAST TIME IT WAS OUTPUT. 


IF THE X COORDINATE WAS ENTEREDs YOU WILL THEN 

BE ASKED FOR Y. YOU SHOULD NOW ENTER THE Y 
COORDINATE OF THE SECTOR YOU WANT DESTROYED. 

IF ALL GOES WELL THE BATTLE COMPUTER WILL RESPOND 
WITH THE KLINGONS LAST KNOWN POSITION. THE FIRST 
NUMBER REPRESENTS THE X COORDINATEs THE SECOND 

IS Y. *NOTE: THE KLINGON CAN MOVE ONLY ONE 
POSITION AT A TIME IN ANY ONE OF 8 DIRECTIONS. 


THE ABOVE PROCEDURE WILL BE REPEATED OVER AND 
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LOCN 


0000 
9002 
9003 
9004 
0005 
0006 
0007 
0008 
9909 
JO0A 
0008. 
2000. 
D00F 
0010 
0011 
0012 


DOTA 
0028 
002A 
002B 
902C 
9020 


O02F 
9032 


B1 B2 B3 


20 3¢ 


7E EO 7E 
7E €1 D1 


+ ee HF FH HF FH HHH HF HF HF He HH FH 


LASTX SORMB 
LASTY 60RMB 
NOWX 76RMB 
NOWY #Z2R™B 
SHOTS YoRMB 
FIREX ;ooRMB 
FIREY sea RMB 
FLAG ° [2oRMB 
LPCNT t2oRMB 
TEMP ?¥oORMB 
TEMP2 22RMB 
CNT2 = #S°RMB 
TRIALX??2RMB 
TRIALYs7oRMB 
QUDMAP??oRMB 


OVER UNTIL ALL PHASER ENERGY IS GONE. WHEN YOUR 
ENERGY GETS SO LOW THAT ONLY 41 MORE SHOT CAN BE 
FIRED» “CONDITION RED" EXISTS. IF THIS IS THE 
FIRST TIME THIS HAS OCCURED YOU HAVE THE CHOICE OF 
RETURNING TO THE STARBASEC(BY TYPING A Y) OR TO 
FIRE YOUR LAST SHOT (BY TYPING AN N) AND HOPEFULLY 
CAPTURING THE ENEMY! IF YOU ELECT TO RETURNs THE 
KLINGON SHIP HAS TIME TO ESCAPE TO A NEW GALAXY 

IN WHICH CASE YOU MUST DO IT ALL AGAIN. 


THE TSC RANDOM NUMBER GENERATOR MUST BE ENTERED 
AT LOCATION AOQ4A HEX BEFORE STARTING. 


IT WILL BE HELPFUL TO LOOK AT THE ATTACHED SAMPLE 
GAME OUTPUT BEFORE STARTING. 


K*K BEWARE #4 
MANY UNSUSPECTING THINGS CAN HAPPEN DURING YOUR 
MISSION SO BE PREPARED!! 


TSC 6800 KLINGON CAPTURE GAME * 
Oo VAK KL IME 
2 


20 OFT 
ZO ORG $0000 
YO BRA INITL GO START 


LAST POSITION 
CURRENT POSITION 
SHOT COUNTER 
SHOT SECTOR 


LOOP COUNTER 
TEMPORARY STORE 


TRIAL POSITION 


Me VP aeyMNDy oa rem aon ano 


QUADRANT MAP 


MOVTBL200FCB 0,1-0,-S$FF-1-0-$FF-0-1-1-SFF/SFFe1-$FF 
ENDTBL2(0FCB SFF,1 

FLAG1 22°RMB 1 

FLAG2 230RMB 1 

FLAG3 240RMB 1 

XSAVE 250RMB 2 


* 


EXTERNAL ROUTINE ADDRESSES 


PDATA12460 MP SEQVE 
OUTCH 270J5mP $E1D1 
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Be 
E14 
A0 
EO 


38 


F2 


35 


INCH2 "0° JMP 
RANDOM290JMP 
MIKBUG3oo JMP 


SETAC 
SA0D4A 
SEOES 


* INITIALIZATION 


INITLS?¢ LDS 
CLR 

INITLO LDX 
LDA 

LDA 

INITL1 STA 
INX 

DEC 

BNE 

INITL2 ‘JSR 
Yva AND 

CMP 

BLS 

ADD 

STA 

TST 

BNE 

LDX 

JSR 

zoOJSR 

CMP 

BEQ 

LDA 

SUB 

STA 

NXTINI LDX 
JSR 

JSR 

AND 

foo ADD 

JSR 

INITL3 JSR 
AND 

CMP 


Foo LDA 


Po > 


>YrPp 


> 


#SA0N4G2 
FLAG2 
HQUDMAP 
HOFF 

#8 

0,X 


INITL1 
RANDOM 
#SOF 
#11 
INITL2 
#1 
SHOTS 
FLAG2 
NXTINI 
#BOMSTR 
PSTRNG* 
INCH 
#'°B 
NXTINI 
SHOTS 
#2 
SHOTS 
HGALSTR 
PSTRNG 
RANDOM 
HSOF 
#$41 
OUTCH 
RANDOM 


PSTRNG 
SHOTS 
#10 
#$30 
QUTCH 
AINSTST 
PDATA1 
RANDOM 
#7 
NOWX 
RANDOM 


MIKBUG-s A MOTOROLA TRADEMARK 


SET QUADRANT 
MAP UP WITH 
ALL ONES 


SETUP SHOTS COUNT 


OUTPUT GALAXY LOC. 


REPORT # OF SHOTS 
AVAILABLE 


SET UP INITIAL 
KLINGON LOCATION 
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LOCN 
9083 
0085 


0087 
DOBA 
00BD 
OOBF 
00Cc2 
90c5 
0o0c? 
DOCA 
OOCcC 
OOCE 
0009 
0003 
0006 
0009 
900B 
DODE 
00E1 
OO0E4 
D0E7 
OOE9 
O0EB 
OOEE 
OOFO 
D0F2 
OOFS 
OOF8 
OOFA 
OOFD 
97100 
0103 
9106 
0108 
010A 
070d 
9110 
3113 
9115 
0117 
D11A 
911¢ 
D11€E 
0121 
N124 
0127 
912A 
9120 
012F 
0131 
0134 
9136 
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B3 


GOCAND A 
SIO STA A 


* MAIN PROGRAM 


LOOP SZOJSR 
TST 
BEQ 
JmMP 
PTLP1 TST 
BNE 
JMP 
PTLPZ LDA A 
fgotMP A 
BNE 
LDX 
JSR 
TST 
BNE 
INC 
LDX 
JSR 
JSR 
{929 CMP A 
BNE 
JSR 
CMP A 
BLS 
LOX 
JSR 
BRA 
OKGO LDX 
JSR 
11 COJMP 
LOOPO JSR 
CMP A 
BLS 
LDX 
JSR 
DEC 
BEQ 
BRA 
CONT JSR 
1209CMP A 
BLS 
INC 
LOX 
JSR 
CONT1 LDX 
JSR 
LOA A 
ADD A 
» ISR 
1300LDA A 
JSR 


4 


#7 
NOWY 


LOOP 


NEWPOS 
FLAG 
PTLP1 
WIN 
SHOTS 


‘PTLP2 


SLOSE 
#1 
SHOTS 
LOOPO 
HREDST 
PSTRNG 
FLAG2 
LOOPO 
FLAG2 
HBASEST 
PSTRNG 
INCH 
#'Y 
LOOPO 
RANDOM 
#$B0 
OKGO 
#CANTGO 
PSTRNG 
LOOPO 
HBASES2 
PSTRNG 
INITLO 
RANDOM 
HOSED 
CONT 
HHITSTR 
PSTRNG 
SHOTS 
SLOSE 
CONT1 
RANDOM 
ASF8 
CONT1 
SHOTS 
ASHTINS 
PSTRNG 
HLASTST 
PSTRNG 
LASTX 
#331 
OUTCH 
#', 
OUTCH 


GO FIND NEW POS. 
CHECK FOR ERROR 


ANY SHOTS LEFT? 
ONLY 1 SHOT LEFT? 


IF SO» REPORT 


DOES HE WANT TO 
RETURN TO BASE 


YES OR NO? 
IF YES, CHECK 


IF ALLOWED 
NOT ALLOWED 


OK TO RETURN TO 
BASE 

BEEN ATTACKED?? 
IF SOs» REPORT 


AND DEC. SHOTS 


TIME WARP?? 


IF SO, REPORT AND 
INC THE SHOTS 


RPRT KLINGONS LAST POS. 


TSC KLINGON 


LOCN 
0139 
9138 
013D 
0140 
0143 
0146 
0148 
0148 
014d 
9150 
0153 
0156 
0159 
0158 
O15E 
- 0161 
0163 
0165 
0167 
0169 
016C 
O16E 
0170 
0173 
0175 
0177 
0179 
017C 
O17F 
0182 
0185 
0188 
018A 
018C 
018F 
0192 
0195 
0198 


D19A 
D19C 
O19€E 
O1A1 
O1A4 
D1A6 
O1A7 
O1AA 
O1AC 
O1AE 
3180 
0182 
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B3 


32 


32 


[32OLDA A 


ADD 
JSR 
JSR 
TST 
BNE 
TST 
BNE 
NXT /HcoDEC 
JMP 
SLOSE —_LDX 
JSR 
BRA 
WIN LDX 
JSR 
LDA 
CMP 
BHI 
WINT /S72ADD 
JSR 
BRA 
WIN2 LDA 
JSR 
LDA 
SUB 
BRA 
WIN3 LDX 
JSR 
PLAYAGI¢I7LD X 
JSR 
JSR 
CMP 
BNE 
JMP 
PLAYG1 JMP 
LOSE LDX 
JSR 
BRA 


* NEW POSITION 


newPd?”? ipa 
STA 

CLR 

JSR 

AND 

ASL 

Lox 

STX 

ADD 

STA 

1Z00L DX 
NEWPO1 LDA 


A 


>> 


LASTY 
#331 
OUTCH 
GETSHT 
FLAG1 
PLAYAG 
FLAG 
LOSE 
SHOTS 
LOOP 
#LOST1 
PSTRNG 
PLAYAG 
HWINSTR 
PSTRNG 
SHOTS 
#9 
WIN2 
#330 
OUTCH 
WIN3 
#331 
OUTCH 
SHOTS 
#10 
WIN1 
AWINST1 
PDATA1 
HAGAIN 
PSTRNG 
INCH 
HON 
PLAYG1 
MIKBUG 
INITL 
ALOST2 
PSTRNG 
PLAYAG 


ROUTINE 


#8 
LPCNT 
FLAG 
RANDOM 
#7 


#MOVTBL 
TEMP 
TEMP+1 
TEMP+1 
TEMP 
0-x 


GO GET SHOT 
DID HE GOOF? 


DECREMENT SHOTS 
GO RPT MAIN LOOP 
NO MORE SHOTS! 
GO REPORT 


HE WON!!! 
GO REPORT IT 


RPT SHOTS LEFT 


CHECK TO SEE IF 
WANTS TO PLAY 
AGAIN 


GO TO MONITOR 


SETUP LOOP COUNT 


GET MOVE FROM 
THE TABLE 
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LOCN 81 B2 B3 


91B4 £6 01 1g2OLDA B 1X 
0186 9B 04 ADD A NOWX 

01B8 DB OS ADD B- NOWY 

Q1BA 97 10 STA A TRIALX 

918C D7 11 STA B- TRIALY CHECK TO SEE IF 
O1BE 81 07 CMP A #7 MOVE IS OUT OF 
01C0 22 27 BHI TRYAGN THE BOUNDARY LIMITS 
91C2 C1 07 CMP B #7 . 

9104 22 23 (FC CBHI TRYAGN 

21€6 4D TST A 

9107 2B 20 BMI TRY AGN 

01¢9 5D TST B 

O1CA 28 1D BMI TRYAGN 

N1cc CE 00 12 LDX HQUDMAP FIND THE LOCATION 
N1CF OF OD STX TEMP2 SELECTED IN THE 
9101 DB OE ADD B- TEMP2+1 QUADRANT MAP 
0103 D7 OE STA B TEMP2+1 

01D5 DE OD LDX TEMP2 

01D7 E6 00 ZOoOLDA B Q-xX 

01D9 56 LOOP2 ROR B 

O1DA 85 FF BIT A #SFF 

O1pce 27 03 BEQ FOUND 

O1DE 4A DEC A 

O1DF 2 FB BRA LOOP2 

91€1 25 20 FOUND BCS POS OK SEE IF LOC. HAS 
21E3 20 04 BRA TRYAGN BEEN DESTROYED 
9165 7¢ 90 09 NOGD1 INC FLAG IF TRIED & TIMES 
O1E8 39 RTS GIVE UP! 

01E9 7A OO OA TRYAGN! DEC LPCNT GO TRY ANOTHER 
DIEC 27 F7 2110 BEQ NOGD1 MOVE 

N1EE DE OB L.DX TEMP 

O1FO 8c 00 28 CPX #ENDTBL 

91F3 27 07 BEQ TRYAG2 

O1F5 08 INX 

D1F6 98 INX 

91F7 DF OB STX TEMP 

O1F9 7E 01 B2 TRYAG1 JMP NEWPO1 

O1FC CE 00 1A TRYAG2 LDX #MOVTBL 

Q1FF DF OB Z2OOSTX TEMP 

9291 20 F6 BRA TRYAG1 

0203 96 04 POSOK LDA A NOWX GOOD LOC. FOUND 
2205 97 02 STA A LASTX SAVE IT & UPDATE 
0207 96 05 LDA A NOWY LAST LOCATION 
0209 97 03 STA A LASTY 

020B 96 10 LDA A TRIALX 

0200 97 04 STA A NOWX 

D20F 96 11 LDA A TRIALY 

0211 97 05 STA A NOWY 

0213 39 2300 RTS 


* GET SHOT ROUTINE 


0214 7F 00 09 GETSHT CLR FLAG CLEAR FLAGS 


TSC KLINGON 
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6A 


27 


OF 


2320CLR 


CLR 
JSR 
CMP 
BLS 
INC 
JSR 
AND 


2yYeo0STA 


SUPNOV 


25/9 


JSR 
AND 
STA 
CMP 
BNE 
LDA 
CMP 
BNE 
INC 
LOX 
JSR 
LDA 
ADD 
JSR 
LDA 
JSR 
LDA 
ADD 
JSR 


2fo OLDX 


GTSHOT 
2700 
ISITS 


GETSHO 


2gCo0 
GETSHL 


GETSH1 
296 


JSR 
TST 
BEG 
LDX 
JSR 
LDX 
JSR 
RTS 
LOX 
JSR 
JSR 
CMP 
BNE 
JMP 
CMP 
BNE 
JMP 
CMP 
BNE 
INS 
INS 


. JMP 


BSR 
TST 
BEQ 
LDX 


SUPNOV 
FIREX 
NOW X 


SUPNOV - 


FLAG1 
#SUPSTR 
PSTRNG 
FIREX 
#331 
OUTCH 
H', 
OUTCH 
FIREY 
#331 
OUTCH 
HSUPST1 
PSTRNG 
FLAG1 
GETSH4 
H#SUPST2 
PSTRNG 
#LOST3 
PSTRNG 


HPROMPT 
PSTRNG 
INCH 
#°M 
ISITS 
MAPRNT 
#°S 
GETSHO 
SHOTRP 
HPL 
GETSHL 


CONT1 
CHKASC 


GETSH2 
#DUMB 


A SUPERNOVA?? 
IF NOT-JUMP AHEAD 


FIND ITS LOCATION 


IS IT SAME PLACE 
AS KLINGON 


IF SO,» SET FLAG 


RPRT THE SUPERNOVA 


AND ITS POSITION 


GO DESTROY SECTOR 


RPRT GAME LOST 


OUTPUT SHOT PROMPT 


IF M GO PRINT MAP 


IF S REPORT SHOTS 


IF tL REPORT POS. 


IS COORDINATE VALID? 


IF NOT-REPORT IT 


TSC KLINGON 


LOCN 
9298 
O29E 
02A1 

02A3 
Q2A6 
O2A9 
D2AC 
D2AE 
O2AF 
0281 

0283 
02B5 
0287 
O2BA 
02BC 
02BE 
92C1 

92C4 
02c5 
02c7 
O2CA 
D2cc 
O2CcE 
0200 
0202 
O02d4 
0206 
0207 
0209 
O2DR 
O20c 
O2dE 
22E0 
0261 

02E3 
O2E4 
D2E6 
O2E8 
O2E9 
O2EB 
O2EE 
d2F0 
02-3 
02F6 
02F7 
O02F9 
O2FC 
O2FE 
0301 
0302 
0304 
9306 
0308 
0308 
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38 


30 
89 


12 


09 


JSR 
JMP 
GETSH2 STA A 
ZICOLDX 
JSR 
JSR 
BSR 
TST B 
BNE 
STA 
CMP A 
BEQ 
GETSH3 JSR 
ZoooCMP A 
BLS 
LDX 
JSR 
RTS 
GETSH4 LDA A 
LDX 
STX 
ADD A 
STA A 
ceese, LDX 
LDA B 
LDA A 
LOOP3 RORB 
BIT A 
BEQ 
DEC A 
BRA 
DONE BCC 
CLC 
3200 LDA 
Loops ROL 
BIT 
BEQ 
DEC A 
BRA 
SCREWD TST 
BNE 
LDX 
JSR 
SCRD13300RTS 
DONE2 STA B 
TST 
BEQ 
RPTGTS JMP 
RPTGTO RTS 
TRALE LDA A 
CMP A 
BNE 


> 


roy 


INC 
ZYo9 Rts 


PSTRNG 
GETSHT 
FIREX 
HPROMP2 
PDATA1 
INCH 
CHKASC 


GETSH1 
FIREY 
NOWY 
TRBLE 
RANDOM 
HSFC 
GETSH4 
#AMISFRD 
PSTRNG 


FIREY 
#QUDMAP 
TEMP2 
TEMP2+1 
TEMP2+1 
TEMP2 
0,X 
FIREX 


HSFF 
DONE 


LOOP3 
SCREWD 


FIREX 


ASFF 
DONE2 


LOOP4 
FLAG3 
RPTGTS 
H#SHOT2T 
PSTRNG 


0-Xx 
FLAG3 
RPTGTO 
GETSHT 


FIREX 
NOWX 
GETSH4 
FLAG 


GET 2ND COORDINATE 


IS IT VALID?? 


IF NOT, REPORT IT 


DID PHASER MISFIRE 


FIND SECTOR IN THE 
QUADRANT MAP 


IF ALREADY DESTROYED 
GO REPORT 
OTHERWISE DESTROY IT 


RESTORE THE QUADRANT 
MAP 


SHOT SECTOR TWICE 


ALL DONEs RETURN 
DID HE DESTROY THE 
KLINGON SECTOR??? 
IF SO-FLAG ERROR 
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Lo J LOCN B1 B2 B3 
* CHECK IF ASCII VALID 


030C 
O30E 
9310 
0312 
0314 
0316 
0318 
0319 
O31A 
O31C 


0310 
0320 
0322 
9325 
0328 
Q32A 
032C 
O32E 
0330 
oO 0332 
0334 
0337 
0339 
933C¢ 
O33E 
O33F 
0341 
0343 
0346 
9348 
0348 
O34E 
0350 
0352 
0355 
0357 
9358 
0358 
035D 
0360 
0363 
0366 
0368 


O36A 
036D 


CE 
BD 


04 
03 


8E 


32 
19 


32 
32 


32 
32 
OF 


8E 


OA 


49 
2F 
14 


20 
89 


CHKASC ~CMP A 
3¥20 BLS 
CMP A 
BHI 
SUB 
AND 
CLR 
RTS 
NOTVAL LDA B 


3500 RTS 


oO» yp 


#330 

NOTVAL IF LESS THAN 1 
#338 OR GREATER THAN 8 
NOTVAL HE GOOFED! 

#1 

#7 


#1 


* MAP PRINT ROUTINE 


MAPRNT JSR 
LDA A 
JSR 
LDX 
LDA 
STA 

MAPRN1 LDA 
STA 
LDA 
ADD 
JSR 
LDA A 
JSR 
LDA B 

MAPRN2 ROR B 
BCC 
LDA A 


rProanwnoag 


MAPRN3 JSR 


LDA A 
JSR 
DEC 
BNE 
STX 
JSR 
LDX 
DEX 
DEC 
BNE 
LDX 
JSR 
+> SMP 

MAPRN4S LDA A 


S930 BRA 


* REPORT SHOTS 


SHOTRP LDX 
% eEOISR 


PCRLF 

HSA 

OUTCH 

HQUDMAP+? SET UP LOOP COUNT 
#8 


CNT2 CHECK EACH SECTOR 
LPCNT OUT PROPER CHAR 


OUTCH OUTPUT A SPACE 


Ht 
OUTCH OUTPUT AN * 


CNT2 
MAPRN2 
TEMP 
PCRLF 
TEMP 


LPCNT 

MAPRN1 

H#NUMSTR OUTPUT COORDINATE 
PDATA1 NUMBERS 

GETSHT 

#°O° 

MAPRN3 


REMAINING 


HSHTRST 
PSTRNG 


TSC KLINGON 


LOCN 
0370 
0372 
0374 
0376 
9378 
0378 
O37E 
0380 
9383 
0385 
0387 


0389 
0388 
O38E 
0390 
0393 
0396 
0398 


0399 
03B2 
0388 
9305 
03DB 
D3F1 
O3F2 
O3F3 
9400 
0401 
0402 21 
O40F 
0415 
042C 
0420 
0448 
0449 
O4S5SA 
0461 
946B 
046C 
047D 
0483 
0499 
94A0 
O4BA 
043B 
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B3 


32 
14 


32 


2F 


99 
2F 


SISOLDA 

CMP 

BHI 

SHTRP1 ADD 
JSR 

sgoc IMP 
SHTRP2 LDA 
JSR 

LDA 

ayye SUB 

; BRA 


* PRINT STRING 


3470 
BSR 
JMP 
STX 
LDX 

fo93d$R 

LDx 
YghIRTS 


PSTRNG 


PCRLF 


* STRINGS * 


FCC 
FCB 
FCC 
FCB 
FCC 
FCB 
BOMSTR FCB 
OF CC 
FCB 
FCB 
FCC 
FCB 
FCC 
FCB 
FCC 
FCB 
NUMSTR 5 FCC 
G2o9F CB 
RPTSTR FCC 
FCB 
FCC 
FCB 
FCC 
FCB 
FCC 
“FCB 
PR ont FCC 


HITSTR 


SHTINS 


SHTRST 


INSTST 


CRLFST 
LASTST 


> 


10 


GET SHOTS COUNT 
OUTPUT IT 


SHTRP1 


ROUTINE 


OUTPUT A CR & LF 


PCRLF 
PDATA1 
XSAVE 
ACRLEST 
PDATA1 
XSAVE 


SAVE POINTER 


OUTPUT IT 
RESTORE 


ZREPORT: *** SHIP HAS BEEN; 


$D-$A/0-0-0-0 

2 ATTACKED. PHASER ENERGY USED; 
$D-$A-0-06-0-0 

7 TO REPLENISH SHIELDS.- 

4 

SA 

sRATING(B/M)? 

4 

7 

7! TIME WARP !;3 

$0-$A,0,0,0-0 

7PHASER ENERGY INCREASED, 

4 
REPORT: 
4 

> 12345 67 & 
$D-$A-0,0-0,074 

7YOQU HAVE 13 

4 

¢ SHOTS TO CAPTUREs 
$D-$A-0-0-0-0 

>THE KLINGON SPACESHIP.- 
$D,-$A-0-0-0+40-4 

sREPORT: LAST POSITION WAS ¢ 
4 

BATTLE COMPUTER READY!. 


PHASER SHOTS LEFT= - 
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LOCN B1 B2 B3 


0401 OD Gg Bee FCB $D-$A-0-0-0-0 
04D7 58 FCC eX=e 
0409 04 FCB oo 
O4DA 20 PROMP2 FCC 3 Y=; 
O4DE 04 FCB 4 
D4DF 53 DUMB FCC *SUBGALAXY COORDINATE: NOT VALID; 
O4FE 04 FCB 4 
O4FF 4E SHOT2T FCC *NICE GOING! YOU JUST SHOT A; 
951A OD FCB $D-$A,0-0-0-0 
9520 50 FCC sPREVIOUSLY DESTROYED SECTOR!!,; 
953D 04 Yoo FCB 4 
OS3E OA LOST2 FCB SA 
OS3F 43 FOE CONGRATULATIONS! YOU JUST FRIED; 
OSSE OD FCB $D,$A,0-0-0,-0 
3564 54 FCC 7THE ENEMY! SE; 
357N 59 LOST3 FCC 7YOUR MISSION WAS A FAILURE.s 
9588 OD FCB $D-$A-0-9,-0-0 
9591 42 : FCC *BETTER LUCK NEXT TIME!; 
O5A7 O04 FCB 4 
OSA8 OA LOST1 FCB SA 
OSA9 43 “SCAR CC sCOMPUTER REPORT: PHASERS EMPTY; 
95C7 OD FCB $0,$A-0,/0,0-0 
O5CD 4B FCC *KLINGON ATTACKS, DESTROYS SHIP.s 
OSEC 04 FCB 4 
OSED OA WINSTR FCB SA 

r OSEE 45 FCC sENEMY CAPTURED HHtstirs; 
0605 OD FCB $D,/$A,-0-0,09,-0 
060B 59 FCC 7YOU HAVE -¢ 
0614 04 FCB 4 
9615 20 WINST1 FCC + SHOTS LEFT !!;7 
9623 04 ge? FCB 4 
9624 54 AGAIN . FCC 27TRY AGAIN? ¢ 
D62F 04 FCB 4 
0630 2A MISFRD FCC z** PHASER MISFIRES **,; 
9645 04 FCB 4 : 
0646 52 BASEST FCC sRETURN TO BASE? 3; 
9656 04 FCB 4 
9657 OA BASES2 FCB SA . 
0658 52 FCC sREPORT: DOCKED AT STARBASE,s 
0672 QOD FCB $0-$A,0-0-0,-0 
9678 20 Y?OCF CC v7 ALL ENERGY LEVELS RESTORED.- 
9694 OD ‘ FCB $D,$A,0,0-0,-0 
069A 20 FCC 7 KLINGON HAS MOVED INTO; 
06B1 OD FCB $0-$A-0-0-0-0 
0687 20 FCC > ANOTHER GALAXY.; 
D06C7 94 FCB 4 
26C8 2A CANTGO FCC 7*x*keWARP ENGINES WONT FIRE**%; 
D06E4 OD FCB $D0-$A79-0-029 
O6EA 53 FCC *SHIP REMAINS AT PRESENT LOCATION; 
D70A 04 FCB 4 

- 0708 DA GALSTR*#0°F CB SA 
970C 53 FCC *SCANNERS DETECT ENEMY INae 
9724 OD FCB $D-$A-0-0,-0,-0 
072A 47 FCC GALAXY - 


0731 04 4 YYOFCB 4 


TSC KLINGON CAPTURE FOR 6800 


LOCN B1 Be B3 


0732 07 REDSTHQSCFCB 
0733 52 : FCC 
074C OD 4 FCB 
9752 20 FCC 
9765 OD FCB 
0768 20 UYco FCC 
‘0782 04 FCB 
0783 07 SUPSTR FCB 
0784 52 FCC 
079F OD FCB 
O07A5 20 FCC 
O7BA 04 FCB 
978B 20 SUPST1 FCC 
O7CF 04 FCB 
2700 07 SUPST2 FCB 
07D1 20 3°22 FCC 
O7EC 04 _ Fce 

£259 END 


SYMBOL TABLE: 


AGAIN 0624 BASEST 0646 
CHKASC 030C CNT2 OQOOF 
DONE O2DE DONE2 O2F7 
FIREY 0008 FLAG 9009 
FOUND 9161 GALSTR 9708 


GETSH1 0298 GETSH2 O02A1 


HITSTR 0399 INCH 0035 
INITL2 0051 INITL3 0086 
LASTX 0002 LASTY 9003 
LOOP3 9206 LOOP4 G2E3 
LOST3 0570 LPCNT OOCA 
MAPRN3 0343 MAPRN4 0366 
NEWPOS O19A NEWPO1 017B2 
“ NOWY go0s NUMSTR 0449 
OUTCH 0032 PCRLF OQ38E 
POSOK 0203 PROMPT 048B 
PTLP2 OOCA QUDMAP 0012 
RPTGTO 0391 RPTSTR 0461 
SHOTS 0006 SHOT2T O4FF 


SHTRST 0420 
SUPST2 0700 
TRIALY 0011 
WINSTR OSED 
XSAVE 002D 


SLOSE 0153 
TEMP 000B 
TRYAGN O1E9 
WINST1 0615 
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7 

REPORT: **CONDITION RED**;, 
$D-$A-0-0-0-0 

¢ PHASER ENERGY LOW!; 
$D,$A,0-0-0,0 

2 ONLY 1 SHOT REMAINING. 

4 

7 

REPORT: SCANNERS DETECT NEW; 
$0-$A-0-90-0-0 P 
SUPERNOVA IN SECTOR 7 


* SECTOR DESTROYED!; 


x**k KLINGON WAS IN SECTOR!; 


se N ve De 


BASES2 0657 BOMSTR O3F2 CANTGO 
CONT 0117 | CONT1 0127 CRLFST 
DUMB O4DF ENDTBL 0028 FIREX 
FLAG? O02A FLAG2 0028 FLAG3 
GETSHL C0293 GETSHT 0214 GETSHO 
GETSH3 0287 GETSH4 O2C5 GTSHOT 
INITL GO3E INITLO 0044 INITL1 
INSTST 046C ISITS C0283 LASTST 
LOOP 00B7 LooPO 0103 LOOP2 
LOSE 0192 LOST1 Q5A8 LOST2 
MAPRNT 0310 MAPRN1 O32C MAPRN2 
MIKBUG 0038 MISFRD 0630 MOVTBL 
NOGD1 0O1€5 NOTVAL O37A NOWX 
NXT 014D NXTINI 0076 OK GO 
PDATA1 OO02F PLAYAG O17F PLAYG1 
PROMP2 Q4DA PSTRNG 0389 PTLP1 
RANDOM 0038 REDST 0732 RPTGTS. 
SCRD1 O2F6 SCREWD O2EB SHOTRP 
SHTINS 0401 SHTRP1 9376 SHTRP2 
SUPNOV 0242 SUPSTR 0783 SUPST1 
TEmMP2 O00D TRBLE 0302 TRIALX 
TRYAG1 Q1F9 TRYAG2 OFC WIN 
WIN 0167 WIN2 016E WINS 
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$1050000203C9E 

$113001A,0001,00,F FO1DOF FOO0101F RFROLFFEEO1D2 
S113002F 7EEQ7E7EEI1D17EETACTEADNGA 7EEDES8E GF 
$113003FA0427F002BC E001 286FFC608A 700085 AES 
S113004F26FAB8D0038840F 810B23F78B0197067DA9 __ 
$113005F002B2613CE03F2BD0389BD003581422741 
$113006F 06960689029 706CE 070BBD0389BD00389E 
S113007F840F 8841BD0032BD 003 8840F810922F7F4 
$113008F8B30BD0032CE0461BD0389960680CA8A87 


$113009F 308D0032CE046CB0002FBD0038840797ED — 


5113 00BF 7E10158'700006 2603 7E0153860191062691 
32BD0 389700028262 87 CO02BCE2F 
$1 13000 F0646B00389B 000358159261 88D003881F8 
$11300E FBO2 308CE06C8B8D03892009CE965 7800329 
S11300F F897E 00448000388 1ED2300CE0399BD03E5 
S113010F 89700062 73E 20108000388 1F 82309728 
$113011F0006CE0401BD0389CE04A0BD0389960257 
$113012 F883 1800032862CB0093296038B31BD005E 
5113013F32BD92147D092A26377D000926457A0038 
$113014F067E00B7CE0 5A8BD 0389202 4CEOSEDBDDC 
$113015F038996068109220788306D003220088656 
$113016F318D00329606800A20EECE061 5BDOOZF53 
$113017FCE0624BD03898D0035814E26037EC03B38 
$113018F 7E003ECEOS3EBD038920E 5860897 0A7F93 
S$113019F09098D0038840748CE001ADFOB9B0C976B 


S113 00AF9 Diperoboneaso37e03s3ee0i21062691 


= 130000446) 


S11301AFOCDEOBA600E 4019804080597 1007118128 


$11301BFO72227C 110722234 D28205D2B1 DCENN1 2B2 
$11301CFDFODDBOED7O0BDEODE6005685FF27934A43 
$11301DF20F $252020047C0009397AD00A27F70E4D 
$11301EFi0B8C002827070808DF 08 7EC 1B2CEDDIAFC 
511301 F FDFOB2Z0F 6,96049702960597039610970443__ 
$113020F96119705397 FOO097FODZA7FOO2ZCBDONCS 
$113021 F388 11FA234F7 C002 C80003884979707BD23 
$113922F0038849797089105260996079104260339 
$113023F7COO2ACE078380038996078B318D00321C 
$113024F'862C'BD003296088831BD0032CEO7BBBD64 
$113025F03897D002A275FCE 07D 0BD0389CE0570A1 
$113026FBD038939CEC48BBD03898D00358140263D 
$113027F037603'1D'815 32603 7E036A814C260531B9 
$113028F/317E01278D775D2709CE 04) FBD03897E 7B 
$113029F02149707CE04 DABD002 FBDD035805E5DC5 
$11302AF26E797089105274BBD003881FC2307CE1D 
$11302BF06308D9389399608CE0012D FOD9BIEI7C9 
S11302CFOEDEDDEGO096N75 665 FF27034A20 52415 | 
$11302DF,0B0C,96075985FF270F4A20F 87D002C2613 | 
$11302€ FOECEIO4 F FBD038939£7007D002C27037E62 
$11302F F02143996079104268D7C090939813023F5 - 
$113030F,0A8 138220 6800184075 F39C60139B0038B 
$113031FSE860ABD0032CE0019C608D 70AC608D 782 
$113032R0F960A8B30B000328620B800032E6005690 
$113033A2425862A80003286298000327 A000 F267E 
$113034FEEDFOB8D038E DEB CO7TAOCOA2ZECFCEN4S37 
S113035Fi49BDOO2F 7E0214864F20D9CEN42DBD0334 
$113036F899606810922088B30BD00327E021486DD 
$113037F/31BD00329606800A20E08D037E0C2FDFFB 
$113038 Fi2DCEO499BDOGZFDE2D39524 55C4F5254B6 
$113039F3A202A2A2A205348495 020484 153204200 
$11303AF45454E0D0A000000002041545441434B73 


$11303BFA54426205048415 34552204 54E455247 FF 


FV 6 


2060 


Zole 


207 eE 


EOH:. 
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$11303CF592055534544000A0000000020544F2076 
$11303DF5245504C454E4953482053484945404487 
STTZO3ZEFS3SZEQ40AS24154494E4 728422 F4D293F 58 
$11303FF2004072120544940452057415 250292184 
$113040F0D0A000000005048415345522N454E4507 
$113041F52475920494E435245415345440452458E 
$113042F504F52543A2050484153455 22053484 F4D 
$113043F545320404546543D200420203120322073 
$113044F33203420352036203720380D0A000000A1 
$113045 F0004594F55204841564520310420534834 
$113046F4F545320544F20434150545552450D0A75 
$113047F00000000544845204B4C494E474F4E2036 
$113048F5350414345534849502E0D0ANDONONNN74 
S$113049F045245504F52543A204041535420504F1C 
$11304AF534954494F4E205 7415320044241545409 
$11304BF404520434F4050555445522052454144CD 
$11304CF5921900A00000000583004202059300415 
$11304D0F53554247414C0415 85920434 F4F 52444979 
ST1TZO04EF4SE4154453A204E4F 5420564140494404F2 
ST1304FFSE494345204 74F494E472120594F552008 
$113050F4A5553542053484F5420410D0A000000B8C 
$113051F0050524556494F55534C€59204445535456 
STUBO52F524F59454420534543544F522721040AF5 
STT3Z053F434F4E4752415455404154494F4E53210A 
$113054F20594F55204A555 354290465 24945440D7E 
$113055 F0A0000000054484520454E454D5921216D 
SI13056F21594F5S5522N4D495353494F4E2957410E 
$143057F532041204641494 05552452 ECDOANNNG47 
$113058F0000424554544552204€55434B204E4590 
$113059F 58542054494 D4521040A434 F4050555446 
S113 05AF4552205245504F52543A20504E&415345DA 
$11305BF5253204540D5054590D0A000000004B84C26 
S11305CF494E474F4E2041545441434B532C2044E2 
$11305DF455354524F5953205348495 02E Q4CA45FA 
$11305EF4E454059204341505455524544202121E5 
S11305FF2121212121210D0A00000000594F5520EE 
$113060F4841564520042053484F545 3204C4546E7 
$113061F542021210454525920414741494E3F202F 
$113062F042A2A20504841534552204D49534649E4 
$113063F524553202A2A04524554555 24E20544FA2 
$113064F20424153453F20040A5245504F52543AD9 
$113065F20444F434B45442641542053544152426C 
$113066F4153450D0A0000000026414C4C20454EDB 
$113067F45524759204C45564540532052455354E7 
S11306BF4F5245442 EQDOANDGO0000G2Z04B4C494E9A 
S$113069F 474F4E20484153204D4F564544204694E15 
S$11306AF544F0D0A000000062041464F544845524C 
$11306BF2047414C€4158592E042A2A2A5741525057 
S11306CF20454E47494E455320574F4E5420464 907 
S$11306DF52452A2A2A0D0A000000005 34849502087 
$11306EF52454041494E5320415420505245534594 
STTZ06FFSES420404F434154494F4EN4OA534341E7 
$113070F4E4E45525320446455445435420454E457F 
$113071F4D5920494E0D0A0C0000004 74140415 8E5 
$113072F592004075245504F52543A202A2A434F16 
STTIZSO73F4ES44954494 F4E205245442A2A0D0A002B 
$113074F00000020504841534552204654E645524722 
S$113075F59204C4F57210D0AN00000000204F4E4CDA 
$113076F59203120534R84F542052454D41494E4949 
$113077F4E472E04075245504F52543A205343418B 
$113078F4E4E45525320444554454354204E4557ED 
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$173C79F ODDA000000002053555645524F4F56414C 
STTZ07AF2Z0494E20534543544F522004202A2053AE 
$11307BF4543544F522044455354524F5945442185 
ST1Z3O07CFO407202A2A2A2CO4B4AC4OI4ESTAF4LEOTS7C4 
STT1O7OFG1IS3S20494E2NS5S3S4543544F522104A8 
S9D3ZONO0FC : 
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Sek ee RK EK * 
*@G Tee ee KK KK 
6 ** * #00 * * 

RATING(B/M)? B Sk kK ERO K oO 
Ak kee ek KO K ® 
i 3" * 0 * * 0 * * 
SCANNERS DETECT ENEMY IN Berek ke ke * 
GALAKY 43 leeax kK RK KK * 
YOU HAVE 14 SHOTS TO CAPTURE 12345678 


THE KLINGON SPACESHIP. 
BATTLE COMPUTER READY! 
REPORT: LAST POSITION WAS 756 - Xs4 Y236 


‘BATTLE COMPUTER READY! REPORT: LAST POSITION. WAS 555 
X25 Y=s6 BATTLE COMPUTER READY! 
REPORT: *** SHIP HAS BEEN ; X=4 Ys35 

ATTACKEDe PHASER ENERGY USED ! TIME WARP ! 

TO REPLENISAH SHIELDSe * PHASER ENERGY INCREASED. . 
REPORT: LAST POSITION WAS 6596 REPORT: LAST POSITION WAS 4,4 
BATTLE COMPUTER READY! _ BATTLE COMPUTER READY! 

X=M X=4 Y=4 


REPORT: LAST POSITION WAS 453 


Sx ek kk Kk KK * BATTLE COMPUTER READY! 
Tee ke KK KK K=M 
6% kk * OO kK * £€ 
5S *x* ke KK KK K * Be *£ kK Ke KK K * 
Ae * &€ £€ KK *€ Tee eek RK KK OK 
Beek KK KK * 6*%* * 000 * * 
exe ee eK EK 5S ***O0O* 0 * * 
Lee eK KK RK 4** #0 * 0 * * So 

1234567 8 3x * On *€ 0 *% * 

Qeeer kK KK 
BATTLE COMPUTER READY! Lee eek KR EK 
X=6 Y=6 12345678 
REPORT: LAST POSITION WAS 655 
BATTLE COMPUTER READY! . BATTLE COMPUTER READY! 
X26 Y=35 x2S 
REPORT: LAST POSITION WAS 654 REPORT: PHASER SHOTS LEFT= 4 
BATTLE COMPUTER READY! ‘ BATTLE COMPUTER READY! 
x28 ; 2 an te ; : X24 Y=3 
REPORT: PHASER SHOTS LEFT= 10 REPORT: LAST POSITION WAS 552 
BATTLE COMPUTER READY! BATTLE COMPUTER READY! 
Xe6) YA. i - Xe5 Yx22 
REPORT: LAST POSITION WAS 553 REPORT: LAST POSITION WAS 5Ss1l 
BATTLE COMPUTER READY! * BATTLE COMPUTER READY! 
X33 O¥ 33 X25 Y=1 
REPORT: ***« SHIP HAS BEEN — REPORT: **CONDITION RED#** 
ATTACKED. PHASER ENERGY USED PHASER ENERGY LOW! 
TO REPLENISH SHIELDS. ONLY 1 SHOT REMAINING. 

REPORT: LAST POSITION WAS 6.3 RETURN TO BASE? Y 
BATTLE COMPUTER READY! *keWARP ENGINES WONT FIRE && 
Xs6 YaQ3 SHIP REMAINS AT PRESENT LOCATION 
REPORT: LAST POSITION WAS 554 REPORT: *** SHIP HAS BEEN 
BATTLE COMPUTER READY! ATTACKED. PHASER ENERGY USED 


Xam TO REPLENISH SHIELDS-~ 


COMPUTER REPORT: PHASERS EMPTY *) 
KLINGON ATTACKSs DESTROYS SHIP. 

TRY AGAIN? N 

* 


